Option Explicit
Sub B_Sample009()
    Dim myRng As Range
    Dim myFnt As Font
    Set myRng = Range("A1")	'Nxs
    With myRng
        Set myFnt = .Font
        MsgBox myFnt.Name
    End With
    Set myFnt = Nothing		'
    Set myRng = Nothing
End Sub
